home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / cubic-2.bas < prev    next >
BASIC Source File  |  1994-06-23  |  962b  |  35 lines
  1. 100 INPUT "ENTER COEFFICIENT B"; B
  2. 105 INPUT "ENTER COEFFICIENT C"; C
  3. 110 INPUT "ENTER COEFFICIENT D"; D
  4. 115 P = C -(B^2)/3
  5. 120 PRINT P "VALUE OF P"
  6. 125 Q = D - B*C/3 + (2*(B^3)/27)
  7. 130 PRINT Q "VALUE OF Q"
  8. 135 V =-(P^3)/27
  9. 140 PRINT V "VALUE OF V"
  10. 145 WA = (-Q+((Q^2)-4*V)^.5)/2
  11. 150 PRINT WA "VALUE OF WA"
  12. 155 WB = (-Q-((Q^2)-4*V)^.5)/2
  13. 160 PRINT WB "VALUE OF WB"
  14. 165 IF WA = -WA GOTO 175 ELSE 170
  15. 170 ZA = (WA)^(1/3)
  16. 175 PRINT ZA "VALUE OF ZA"
  17. 180 IF WB = WB GOTO 190 ELSE 185
  18. 185 ZB = (WB)^(1/3)
  19. 190 PRINT ZB "VALUE OF ZB"
  20. 195 IF ZA = 0 GOTO 205 ELSE 200
  21. 200 YA = ZA - P/(3*ZA)
  22. 205 PRINT YA "VALUE OF YA"
  23. 210 IF ZB = 0 GOTO 220 ELSE 215
  24. 215 YB = ZB - P/(3*ZB)
  25. 220 PRINT YB "VALUE OF YB"
  26. 225 IF YA = 0 GOTO 235 ELSE 230
  27. 230 XA = YA - B/3
  28. 235 IF YB = 0 GOTO 250 ELSE 240
  29. 240 XB = YB - B/3
  30. 245 IF YA = 0 GOTO 265 ELSE 250
  31. 250 PRINT XA "FIRST VALUE OF X"
  32. 255 IF YB = 0 GOTO 265 ELSE 260
  33. 260 PRINT XB "SECOND VALUE OF X"
  34. 265 END
  35.